COMMENT ⊗   VALID 00008 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE WAVE
C00004 00003	L101:	SETOM X#
C00006 00004	L6:	JSA 16,DPYOUT
C00008 00005	ININT:	SETZ
C00009 00006	GNAME:	SETZM FILEXT+1
C00010 00007	GETNAM:	MOVEI A,
C00011 00008	DSKIN:	MOVE NN,[INPO:	IOWD =1024,WD]
C00012 ENDMK
C⊗;
	TITLE WAVE
	EXTERNAL TYPLOC,DDCLR,DPYSET
	EXTERNAL DPYOUT,AVECT,ALINE
	A←1 ↔ B←2 ↔ C←3 ↔ K←4 ↔ NN←7 ↔ LPDL←←69 ↔ P←17
BEG:	MOVE P,[-LPDL,,PDL-1]
	JSA 16,TYPLOC
	[-=260]
	[-=512]
TRYOV:	CLRBFI
	OUTSTR [ASCIZ/ TYPE FILE NAME(<CR>=TEST.SND) /]
	PUSHJ P,GNAME

	OPEN 11,[17↔'DSK   '↔0]
	JRST 4,.
	LOOKUP 11,FILNAM
	JRST TRYOV

	HRRZI A,=512
	HRRZM A,INC#
L8:	CLRBFI
	OUTSTR [ASCIZ/ TYPE NUM OF SAMPLES(<CR>=512) /]
	HRRZI A,=1024
	HRRZM A,NZ#
	INCHWL B
	PUSHJ P,ININT
	CAILE =3072		;WON'T DISPLAY MORE THAN 3072 SMPLS AT A TIME.
	MOVEI =3072
	MOVEM J#
	SET↓4~(∪∪≥π!%&A∧4∀∪πβ%α~∀∪A+'⊃∀↓ Y∪≥%≥(~∀%∪	∪-$@f~∀%≠∨-4A≥2F4∀∪'↔%!
A∧1∀~∀∪5∨-~↓∧Y∪≥~∀~∀%')54A∃π≥PF~∀∪!%%5∩↓αXb~(∪⊃%%i~AαY-π≥(F4∀∪'Q5~A∃hF~∃_Dbt∪⊃I%5∩A∧Xb~∀%⊃%%54AαY_~∀∪≠=-
Aα1∪≥ε~(∪≠∨-∃~AαY10F~∀4∃_b`@t∪!+M⊃∀A 1	'↔∪8~∀~∀l∪∃'αblY
¬')∪≤4∀v∪/⊂~∀v∪lzb`dQ:~∀~(∪⊃%%i∩AαXtb`dh4∀∪β	⊃∧AαY94~∀∪
β≠∂
↓αY≥24∀∪∃%M(A_b@`~∀∪M↔∪!≤↓≥2~∀%∃%'(↓_b`b4∀∪'+	∩AαXtb`dh4∀∪∪≠U→∩Aα0f~∀∪5∨-~↓αY↔π9(~∀∪M∨∀Aα0~∀∪≠=-~A∧Y∃π≥P~∀→_b`Dt∪'Q∨~A0~∀∪'∃)4A⊗0~∀∪≠=-
Aα17!∨∪9(@bd1/	:~)_dt∪M↔∪!
↓/λQ⊗$~∀∪'∃)5~A`~∀∪∪1	∧@`1α~∀∪!%%5~`Y
.!⊗R~∀%∪→	∧`Yα~(∪⊃%%i~@`Y→.VbQ,R~∀∪%→	∧@@Yα~∀%⊃%%54@`Y
\VdQ⊗$~∀∪β⊃	∩A⊗0f~∀∪
β∪∂
↓⊗Xzf@nd~∀%∃%'(↓_d~∀l∪'↔∪A
A0∩%β	λAQ⊃∪&AQ≡A%M)β%(↓∨≤A5∃%∨&~(v∪∃%M(A_p4∃_bt%∃'α@DlY		
→$~∀%≠∨-
↓αY6zD```\A:~∀∪→→)$AλY∪≥ε4∀∪
	Y$AαYλ~∀∪≠=-~A∧Y0~∃0h`t∪)'α@bXY	!3M(~∀%6c:~(∪	 ~(∪6zh@`a:~(∪∃'αblYβ1∪≥
~(∪≥
⊃⊂~∀∪6th`s:4∀∪≥
!λ~∀∪lZzh`e:~∀∪)'α@bXYβ→∪9
~∀∪lzj`at~∀∪5∃$~∀∪9
⊃λ~(∪5$4∃_b`h∪≠∨-∀AαY64zj``8a:~∀%≠∨-4AαY4~∀∪≠=-
A⊗1_~∃_Pt∪β∨LA∃π≥P~∀∪≠=-
Aα1
.Zb!⊗R~∀%πβ∪→∀AαXzH`hn~(∪'+¬$AαXzP`rl~(∪≠∨-∃~AαY)4~∀∪%	∪-∩↓αXj~(∪≠∨-∃~AαY)2F~∀%↔∪
∪`AαY44∀∪≠∨Y~Aα1∃0F~(∪∃'αblYβYπ(~(∪∃0~(∪∃2~(∪πβ∪8A⊗XzL`nd~(∪∃%'PA_l~(∪≠∨-∀AαY04∀∪
β⊃~AαYh~∀∪π¬≠∂
A,Y→0~(∪β∨∃∧A⊗Y_P~∀→_lt%∃'α@DlY	!e∨+(~(∪6c:4∃_fbh∪∨+)M)$A7¬'π∪4<A'≠!0@←:~(∪≠∨-∀A↔π≥P~∀∪!U'⊃∀A@Y∨+)%≥(~∀%∨+)'Q$A7βMπ∪4↑↓)≡@←t~∀∪≠=-
A∃
≥(~∀%!+'⊃(A Y∨U)∪≥(4∀∪∨+Q')$Amβ'π∪h↑~∀←t~∃_jTt∪≠∨Y
AαY(~∀∪β=∀AαX4∀∪∃+5!
Aα1_n~∀%β∨∀A∧X~∀∪)+≠!
↓αY_bH~∃_jh∪π→%	
∩~∀%∪≥π⊃]_A∧~(∪!+'!∀A Y%≥∪≥(4∀∪≠∨Y~A∀4∀∪'Q4~∀∪%≥π⊃%LA∧~∀%πβ∪α4∀∪!+M⊃∀A 1∪≥∪≥P~∀∪≠=-~A90~∀∪!%%5∩↓αXzf@nd~∀%πβ≠∂∀AαY∀4∀∪≠∨Y~Aα1∀~∃_\nt∪'-∪!→
↓αY∀~(∪≠∨-∃~AαY%≥ε~∀%β		∩↓αXd~(∪∃+≠A∂
Aα1_n~∀%∃%'(↓_r~∃0bdt∪5∨-
A∧Y_~∀%β	λA∧Y≥0F4∀∪≠∨Y~Aα1→0~∀%≠∨-
↓αY↔π9(~∀∪¬	λAα1≥0~∀%'∨∀A∧X~∀∪5∨-~↓αY∃π9(~∀∪)%'(A0n~∃_dt∪≠∨Y
AαY0~∀∪β⊃λAαY(~∀∪≠=-~A∧Y→0~(∪≠∨-∀AαY↔
≥(~∀%β	λA∧Y∀~∀%'∨∀A∧X~∀∪5∨-~↓αY∃π9(~∀∪M↔∪!∂∀A→0~(∪')i~A→04∃_nt%≠∨-
↓αY→04∀∪β∨(AαX~(∪≠∨-∃~AαY0~∀∪≠=-
Aα1∪≥ε~(∪β		4AαY→`~∀∪≠=-
Aα1∃π≥(4∀∪β∨(AαX~(∪≠∨-∃~AαY-π≥(~(∪≠∨-∀AαY_4∀∪πβ%→
Aα0zf`nH~∀∪∃I'(A_Db~∀∪)%'(A0b~∀→∪≥∪9(t∪'∃)4~∀%')4↓εX~∀%πβ∪≤↓∧XDZλ~∀∪∃I'(A≠%≤~∃%∃π+$t%πβ∪_↓∧Xl`4∀∪πβ%→
A∧0nb~∀%∃%'(↓'3≥
4∀∪∪≠U→∩@zD`~∀∪¬		∩@4l`Q∧$~∃∂)
⊃$t∪%≥π⊃%LA∧~∀%πβ∪α4∀∪∃%M(A%
+$~∃M3≥
t%'↔∪!≥
Aε~(∪≠∨-9&~∀∪A∨!∀A@X~∃≠%≤t∪'∃)≡Aε0~∀∪∃I'(A∂Qπ⊃$~(~∃∨+Q∪≥(t%⊃%%5$A∧XbX~∀∪∃U≠!
A=+(αhhP&&∩M2%↓u4(&"∩%α
aY@4PJ"JJTiα¬2∀b-E"∩H4(&≤z*≡∃∧⊃2>V$J:Q-λh*>∞E⊃h&>-"∞"I∧∩2-E[	"	$hP&∞εL:∃α	c	T4(L
>*¬∧⊃2>∞E⊂4(&∧zB)αα`4*>Z:	CAIL B,16
	HRLZI B,300000
	JRST OCHR

INA5:	SETZ A,
	HRLZI C,700
	INCHWL
	CAIE 15
	CAIN 12
	POPJ P,
	IDPB C
	TRNN A,177
	INCHRS
	POPJ P,
	JRST .-7

GNAME:	SETZM FILEXT+1
	SETZM FILPPN
	MOVE A,['SND   ']
	MOVEM A,FILEXT
	PUSHJ P,GETNAM
	SKIPN A
	MOVE A,['TEST  ']
GEXT:	MOVEM A,FILNAM
	CAIE C,"."
	JRST NOEXTN
	PUSHJ P,GETNAM
	MOVEM A,FILEXT
NOEXTN:	CAIE C,"["
	JRST FFDX
	PUSHJ P,GETP
	HRLZM A,FILPPN
	PUSHJ P,GETP
	HRRM A,FILPPN
FFDX:	INCHRW C
	CAIE C,12
	JRST FFDX
	POPJ P,
GETNAM:	MOVEI A,
	MOVE B,[440600,,A]
GETNML:λβ!U'⊃∀A@Y%π⊂4∀∪!∨A∀A X4∀∪'+	∩AεXP`~∀∪Q→≥
AλXnn`@``~∀%∪	!∧↓εY∧~(∪∃%'PA∂)9≠_~∀4∃∂)@t∪≠∨Y∩Aα0~∃∂Q!_t∪A+'⊃∀↓ Y%π ~∀∪!=!∀A 0~∀∪)I≥
Aα0nn``@`~∀∪)%'(A≥)!_4∀∪→' AαXl4∀∪β	⊃∩AαX4h`Qε$~∀∪∃I'(A∂∃)!_~(~∃%π t∪∪≥
⊃/_A~∀∪π¬∪≤Aε0hd~∀%∃%'(↓%π⊃"4∀∪πβ%
AεXDb~∀∪
β∪≤AXD@D4∀∪∃%M(A%π ~∀∪π¬∪
Aε0D\D~(∪πβ∪8AεXD0D~∀∪A∨!∀A@X~∀∪
β∪
AXE6D4∀∪πβ%≤AεX	:D~∀%!∨!∀↓ X~∃Iπ⊃#$h∪πβ∪≥
AεXP`~∀∪A∨!∀A@X~∀∪
β∪_AXEBD4∀∪πβ%→
Aε0EtD~(∪πβ∪∧~∀∪'U¬∩Aε0h`~∃A∨!∀bh∪β∨&Q R~(∪!∨!(A X~(~∃%π!"t∪∪9π⊃/_↓ε~∀∪)%'(AIπ⊃#$4∀→	'↔%≤t∪≠=-
A≥8Y7∪≥A≡t∪∪=/λ@zD`dhY]	:~∀%≠∨-$A≥≤VDX`~∀%∪≥!+P@bbY9≤~∀∪A∨!∀A@X~∀∩4∃
∪→9β~t∩@~∃
∪11(t$`~∀∩@~∃
∪1!!≤t$`~∀∩4∃¬→⊗Dt∪¬→=π⊗@b\~∃	 h∩`~∀4∃/λt%¬→∨π,@zb`Hh~∀~)
.t∪	→∨π⊗zb`dPTf~∀4∃≥
⊃⊂t∩ZzT``~∃i$t∩@~∃!	0t∪¬→=π⊗A→A	_~∀%≥λA	∞~∀